﻿Imports System.Windows.Forms
Imports Microsoft.VisualBasic.ControlChars

Public Class IncompleteSetupDlg

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub IncompleteSetupDlg_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Select Case My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName
            Case "ENU", "ENG"
                Label1.Text = "Setup is not complete yet, and your custom settings will not be saved. Proceeding will make the program use default settings." & CrLf & CrLf & "Do you want to proceed?"
                OK_Button.Text = "Yes"
                Cancel_Button.Text = "No"
            Case "ESN"
                Label1.Text = "No ha terminado de configurar el programa, y sus preferencias no serán guardadas. Si continúa, el programa utilizará configuraciones predeterminadas." & CrLf & CrLf & "¿Desea continuar?"
                OK_Button.Text = "Sí"
                Cancel_Button.Text = "No"
            Case "FRA"
                Label1.Text = "L'installation n'est pas encore terminée et vos paramètres personnalisés ne seront pas sauvegardés. Si vous continuez, le programme utilisera les paramètres par défaut." & CrLf & CrLf & "Voulez-vous continuer ?"
                OK_Button.Text = "Oui"
                Cancel_Button.Text = "Non"
            Case "PTB", "PTG"
                Label1.Text = "O assistente de configuração ainda não está concluído e as suas configurações personalizadas não serão guardadas. Se prosseguir, o programa utilizará as configurações predefinidas." & CrLf & CrLf & "Pretende prosseguir?"
                OK_Button.Text = "Sim"
                Cancel_Button.Text = "Não"
            Case "ITA"
                Label1.Text = "L'impostazione non è ancora completa e le impostazioni personalizzate non verranno salvate. Procedendo, il programma utilizzerà le impostazioni predefinite." & CrLf & CrLf & "Volete procedere?"
                OK_Button.Text = "Sì"
                Cancel_Button.Text = "No"
        End Select
        If MainForm.IsWindowsVersionOrGreater(10, 0, 18362) Then MainForm.EnableDarkTitleBar(Handle, CurrentTheme.IsDark)
        BackColor = CurrentTheme.SectionBackgroundColor
        ForeColor = CurrentTheme.ForegroundColor
        Beep()
    End Sub
End Class
